home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Media / HyperText Stacks Folder / Mtl.Hypertext 2.0 / background_2776.txt next >
Encoding:
Text File  |  1988-01-18  |  6.9 KB  |  295 lines
  1. -- background: 2776 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=17 top=23 right=41 bottom=502
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Title
  20.  
  21.  
  22. -- part 7 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=440 top=216 right=237 bottom=464
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 24317 / 24317
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: back
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to card id 2179
  37. end mouseUp
  38.  
  39.  
  40.  
  41.  
  42. -- part 10 (button)
  43. -- low flags: 00
  44. -- high flags: 8000
  45. -- rect: left=454 top=37 right=87 bottom=493
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 20186 / 20186
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: sort
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   sort by first word of field "Title"
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 11 (button)
  62. -- low flags: 00
  63. -- high flags: 8000
  64. -- rect: left=454 top=96 right=146 bottom=493
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 32670 / 32670
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: scan
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   show all cards
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 12 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=439 top=244 right=262 bottom=469
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 15420 / 15420
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: prev
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   go to prev card
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 13 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=473 top=244 right=262 bottom=503
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 16560 / 16560
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: next
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   go to next card
  114. end mouseUp
  115.  
  116.  
  117.  
  118. -- part 14 (button)
  119. -- low flags: 00
  120. -- high flags: 8000
  121. -- rect: left=454 top=157 right=207 bottom=493
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 3430 / 3430
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: new
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   doMenu New Card
  133.   click at location of field "Title"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 17 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=475 top=216 right=238 bottom=501
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 21700 / 21700
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: home
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   go home
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 18 (field)
  158. -- low flags: 00
  159. -- high flags: 0007
  160. -- rect: left=37 top=52 right=232 bottom=413
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 3
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Text
  169.  
  170.  
  171. -- part 19 (button)
  172. -- low flags: 00
  173. -- high flags: 8002
  174. -- rect: left=284 top=243 right=261 bottom=420
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: table of contents
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   go to card "table"
  186. end mouseUp
  187.  
  188.  
  189.  
  190.  
  191. -- part 20 (button)
  192. -- low flags: 00
  193. -- high flags: 8003
  194. -- rect: left=50 top=241 right=263 bottom=148
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: hypertext
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   global initialized
  206.   put selection into textSelected
  207.   push card
  208.   visual effect barn door close
  209.   go to first card
  210.   put "Mtl.Hypertext search hierarchy" into hierField
  211.   put line 1 of card field hierField into thisStack
  212.   put number of lines in card field hierField into searchTotal
  213.   if searchTotal < 3 then
  214.     show card field hierField
  215.     show card button "Mtl.Hypertext Hierarchy Ordered"
  216.     hide message
  217.     answer "add to search hierarchy list" with "OK"
  218.     exit mouseUp
  219.   end if
  220.   if initialized is empty then
  221.     put "not empty" into initialized
  222.     show card field hierField
  223.     show card button "Mtl.Hypertext Hierarchy Ordered"
  224.     hide message
  225.     answer "this is your search order:  continue to use it?" with "change it" or "use it"
  226.     if it is "change it" then
  227.       answer "change as desired, then press ‚ĶOrdered" with "OK"
  228.       put "re select text after changing search hierarchy"
  229.       hide message
  230.       exit mouseUp
  231.     end if
  232.     hide card field "Mtl.Hypertext search hierarchy"
  233.     hide card button "Mtl.Hypertext Hierarchy Ordered"
  234.     show message
  235.   end if
  236.   if textSelected is empty then
  237.     visual effect barn door open
  238.     pop card
  239.     answer "select text to search (click & drag)" with "OK"
  240.     exit mouseUp
  241.   end if
  242.   put "Sorry, none found" into lastMessage
  243.   put empty into searchLine
  244.   repeat with searchN = 2 to searchTotal
  245.     if searchLine is not empty then
  246.       visual effect iris close slow
  247.       pop card
  248.       put "Mtl.Hypertext 2.0,  Harvey Y. Chang  MD,   1988 Jan 17"
  249.       --  CIS - 76367,1107;  GEnie - H.Y.CHANG
  250.       push card
  251.       visual effect barn door close
  252.       go to thisStack
  253.     end if
  254.     put line searchN of card field hierField into searchLine
  255.     if searchLine is empty then next repeat
  256.     if char 1 of searchLine is ":" then
  257.       put searchLine into searchStack
  258.       delete char 1 of searchStack
  259.       put empty into searchLine
  260.     else
  261.       visual effect barn door open
  262.       pop card
  263.       push card
  264.       put "‚Ķlooking for " & searchStack
  265.       visual effect iris open very slow
  266.       go to searchStack
  267.       if searchLine is "all" then
  268.         put empty into searchField
  269.       else
  270.         put " in field " & quote & searchLine & quote into searchField
  271.       end if
  272.       put "Find " & quote & textSelected & quote & searchField
  273.       do message
  274.       put the result into theResult
  275.       if theResult is empty then
  276.         put "No further levels" into lastMessage
  277.         put empty into it
  278.         repeat until it is "Next level"
  279.           answer "Continue search on same level?" with "Next level" or "Stop" or "Yes"
  280.           if it is "Stop" then exit MouseUp
  281.           if it is "Yes" then do message
  282.         end repeat
  283.         push card
  284.       end if
  285.     end if
  286.   end repeat
  287.   visual effect iris close slow
  288.   pop card
  289.   if "level" is in lastMessage then
  290.     if theResult is "not found" then put "Not found in further levels" into lastMessage
  291.   end if
  292.   answer lastMessage with "OK"
  293. end mouseUp
  294.  
  295.